16) Izracunati C=AB. MNOZENJE MATRICA



Sub zad14()
Dim a(100, 100) As Double, b(100, 100) As Double, c(100, 100) As Double, s As Double
Dim i As Long, j As Long, k As Long
 Worksheets(1).Activate
 m = Cells(1, 1)
 n = Cells(1, 2)
  For i = 1 To m
  For j = 1 To n
   a(i, j) = Cells(i + 1, j)
   Next
   Next
     Worksheets(2).Activate
      If n = Cells(1, 1) Then
         p = Cells(1, 2)
          For i = 1 To n
           For j = 1 To p
           b(i, j) = Cells(i + 1, j)
           Next
          Next
       For i = 1 To m
         For j = 1 To p
         s = 0
          For k = 1 To n
          s = s + a(i, k) * b(k, j)
          Next
          c(i, j) = s
         Next
       Next
    Worksheets.Add
    For i = 1 To m
     For j = 1 To p
     Cells(i, j) = c(i, j)
     Next
    Next
Else
MsgBox ("Nije definisano")
End If
End Sub